home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: Mailbox/MIME Entity
(archive/mbox).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Mailbox/MIME Entity (archive/mbox)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 1%
| dexvert
| PageFocus Data (other/pageFocusData)
| ext
| Unsupported |
| 1%
| dexvert
| Banyans VINES patch data (other/banyansVINESPatchData)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| Mailbox text, 1st line "From HELLER%cs.umass.edu@relay.cs.net Tue Jan 27 01:56:15 1987"
| default
| |
| 99%
| file
| C source text
| default
| |
| 98%
| file
| C source, ASCII text
| default
| |
| 100%
| TrID
| E-Mail message (Var. 2)
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| detectItEasy
| Format: Plain text[LF]
| default
| |
| 100%
| xdgMime
| application/mbox
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 48 45 4c | 4c 45 52 25 63 73 2e 75 |From HEL|LER%cs.u|
|00000010| 6d 61 73 73 2e 65 64 75 | 40 72 65 6c 61 79 2e 63 |mass.edu|@relay.c|
|00000020| 73 2e 6e 65 74 20 54 75 | 65 20 4a 61 6e 20 32 37 |s.net Tu|e Jan 27|
|00000030| 20 30 31 3a 35 36 3a 31 | 35 20 31 39 38 37 0a 50 | 01:56:1|5 1987.P|
|00000040| 61 74 68 3a 20 62 65 6e | 6f 21 73 65 69 73 6d 6f |ath: ben|o!seismo|
|00000050| 21 75 74 2d 73 61 6c 6c | 79 21 68 75 73 63 36 21 |!ut-sall|y!husc6!|
|00000060| 6d 69 74 2d 65 64 64 69 | 65 21 72 75 74 67 65 72 |mit-eddi|e!rutger|
|00000070| 73 21 62 72 6c 2d 61 64 | 6d 21 61 64 6d 21 48 45 |s!brl-ad|m!adm!HE|
|00000080| 4c 4c 45 52 25 63 73 2e | 75 6d 61 73 73 2e 65 64 |LLER%cs.|umass.ed|
|00000090| 75 40 72 65 6c 61 79 2e | 63 73 2e 6e 65 74 0a 46 |u@relay.|cs.net.F|
|000000a0| 72 6f 6d 3a 20 48 45 4c | 4c 45 52 25 63 73 2e 75 |rom: HEL|LER%cs.u|
|000000b0| 6d 61 73 73 2e 65 64 75 | 40 72 65 6c 61 79 2e 63 |mass.edu|@relay.c|
|000000c0| 73 2e 6e 65 74 20 28 53 | 74 72 69 64 65 20 34 34 |s.net (S|tride 44|
|000000d0| 30 20 55 73 65 72 29 0a | 4e 65 77 73 67 72 6f 75 |0 User).|Newsgrou|
|000000e0| 70 73 3a 20 6e 65 74 2e | 73 6f 75 72 63 65 73 0a |ps: net.|sources.|
|000000f0| 53 75 62 6a 65 63 74 3a | 20 70 74 6f 63 2e 63 0a |Subject:| ptoc.c.|
|00000100| 4d 65 73 73 61 67 65 2d | 49 44 3a 20 3c 33 38 32 |Message-|ID: <382|
|00000110| 30 40 62 72 6c 2d 61 64 | 6d 2e 41 52 50 41 3e 0a |0@brl-ad|m.ARPA>.|
|00000120| 44 61 74 65 3a 20 32 37 | 20 4a 61 6e 20 38 37 20 |Date: 27| Jan 87 |
|00000130| 30 36 3a 35 36 3a 31 35 | 20 47 4d 54 0a 53 65 6e |06:56:15| GMT.Sen|
|00000140| 64 65 72 3a 20 6e 65 77 | 73 40 62 72 6c 2d 61 64 |der: new|s@brl-ad|
|00000150| 6d 2e 41 52 50 41 0a 4c | 69 6e 65 73 3a 20 31 33 |m.ARPA.L|ines: 13|
|00000160| 39 0a 0a 2f 2a 20 2d 2a | 2d 63 2c 73 61 76 65 2d |9../* -*|-c,save-|
|00000170| 2a 2d 20 2a 2f 0a 2f 2a | 2d 2d 2d 2d 2d 2d 2d 2d |*- */./*|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0a 20 |--------|------. |
|000001b0| 2a 09 50 54 4f 43 2e 43 | 20 2d 20 50 61 73 63 61 |*.PTOC.C| - Pasca|
|000001c0| 6c 20 74 6f 20 43 20 70 | 72 65 2d 74 72 61 6e 73 |l to C p|re-trans|
|000001d0| 6c 61 74 6f 72 0a 20 2a | 09 52 6f 62 65 72 74 20 |lator. *|.Robert |
|000001e0| 48 65 6c 6c 65 72 20 46 | 72 69 20 46 65 62 20 20 |Heller F|ri Feb |
|000001f0| 31 20 30 39 3a 35 35 3a | 31 34 20 31 39 38 35 0a |1 09:55:|14 1985.|
|00000200| 20 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | *------|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000230| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0a 23 64 65 66 69 |--------|*/.#defi|
|00000240| 6e 65 20 56 4d 53 20 2f | 2a 20 56 4d 53 20 76 65 |ne VMS /|* VMS ve|
|00000250| 72 73 69 6f 6e 20 2a 2f | 0a 2f 2a 23 64 65 66 69 |rsion */|./*#defi|
|00000260| 6e 65 20 43 50 4d 20 2f | 2a 20 43 50 2f 4d 2d 36 |ne CPM /|* CP/M-6|
|00000270| 38 4b 20 76 65 72 73 69 | 6f 6e 20 2a 2f 0a 23 69 |8K versi|on */.#i|
|00000280| 66 64 65 66 20 56 4d 53 | 0a 23 69 6e 63 6c 75 64 |fdef VMS|.#includ|
|00000290| 65 20 3c 73 74 64 69 6f | 2e 68 3e 09 2f 2a 20 73 |e <stdio|.h>./* s|
|000002a0| 74 61 6e 64 61 72 64 20 | 49 2f 4f 20 2a 2f 0a 23 |tandard |I/O */.#|
|000002b0| 69 6e 63 6c 75 64 65 20 | 3c 63 74 79 70 65 2e 68 |include |<ctype.h|
|000002c0| 3e 09 2f 2a 20 63 68 61 | 72 61 63 74 65 72 20 6d |>./* cha|racter m|
|000002d0| 61 63 72 6f 73 20 2a 2f | 0a 23 64 65 66 69 6e 65 |acros */|.#define|
|000002e0| 20 46 41 53 54 20 72 65 | 67 69 73 74 65 72 09 2f | FAST re|gister./|
|000002f0| 2a 20 28 6e 6f 74 20 72 | 65 61 6c 6c 79 20 6e 65 |* (not r|eally ne|
|00000300| 65 64 65 64 20 75 6e 64 | 65 72 20 56 4d 53 2e 2e |eded und|er VMS..|
|00000310| 2e 29 20 2a 2f 0a 23 64 | 65 66 69 6e 65 20 52 4f |.) */.#d|efine RO|
|00000320| 4d 20 72 65 61 64 6f 6e | 6c 79 20 73 74 61 74 69 |M readon|ly stati|
|00000330| 63 09 2f 2a 20 28 66 6f | 72 20 52 65 61 64 20 4f |c./* (fo|r Read O|
|00000340| 6e 6c 79 20 73 74 75 66 | 66 2c 20 69 66 20 61 6e |nly stuf|f, if an|
|00000350| 79 29 20 2a 2f 0a 23 64 | 65 66 69 6e 65 20 4c 4f |y) */.#d|efine LO|
|00000360| 43 41 4c 20 73 74 61 74 | 69 63 09 2f 2a 20 66 6f |CAL stat|ic./* fo|
|00000370| 72 20 73 74 61 74 69 63 | 20 73 74 75 66 66 20 2a |r static| stuff *|
|00000380| 2f 0a 23 64 65 66 69 6e | 65 20 47 4c 4f 42 41 4c |/.#defin|e GLOBAL|
|00000390| 20 65 78 74 65 72 6e 09 | 2f 2a 20 66 6f 72 20 65 | extern.|/* for e|
|000003a0| 78 74 65 72 6e 61 6c 20 | 73 74 75 66 66 20 2a 2f |xternal |stuff */|
|000003b0| 0a 23 65 6e 64 69 66 0a | 23 69 66 64 65 66 20 43 |.#endif.|#ifdef C|
|000003c0| 50 4d 0a 23 69 6e 63 6c | 75 64 65 20 3c 73 74 64 |PM.#incl|ude <std|
|000003d0| 69 6f 2e 68 3e 09 2f 2a | 20 73 74 61 6e 64 61 72 |io.h>./*| standar|
|000003e0| 64 20 49 2f 4f 20 2a 2f | 0a 23 69 6e 63 6c 75 64 |d I/O */|.#includ|
|000003f0| 65 20 3c 63 74 79 70 65 | 2e 68 3e 09 2f 2a 20 63 |e <ctype|.h>./* c|
|00000400| 68 61 72 61 63 74 65 72 | 20 6d 61 63 72 6f 73 20 |haracter| macros |
|00000410| 2a 2f 0a 23 64 65 66 69 | 6e 65 20 46 41 53 54 20 |*/.#defi|ne FAST |
|00000420| 72 65 67 69 73 74 65 72 | 09 2f 2a 20 66 61 73 74 |register|./* fast|
|00000430| 20 61 63 63 65 73 73 20 | 76 61 72 73 20 2a 2f 0a | access |vars */.|
|00000440| 23 64 65 66 69 6e 65 20 | 52 4f 4d 20 73 74 61 74 |#define |ROM stat|
|00000450| 69 63 09 2f 2a 20 28 66 | 6f 72 20 52 65 61 64 20 |ic./* (f|or Read |
|00000460| 4f 6e 6c 79 20 73 74 75 | 66 66 2c 20 69 66 20 61 |Only stu|ff, if a|
|00000470| 6e 79 29 20 2a 2f 0a 23 | 64 65 66 69 6e 65 20 4c |ny) */.#|define L|
|00000480| 4f 43 41 4c 20 73 74 61 | 74 69 63 09 2f 2a 20 66 |OCAL sta|tic./* f|
|00000490| 6f 72 20 73 74 61 74 69 | 63 20 73 74 75 66 66 20 |or stati|c stuff |
|000004a0| 2a 2f 0a 23 64 65 66 69 | 6e 65 20 47 4c 4f 42 41 |*/.#defi|ne GLOBA|
|000004b0| 4c 20 65 78 74 65 72 6e | 09 2f 2a 20 66 6f 72 20 |L extern|./* for |
|000004c0| 65 78 74 65 72 6e 61 6c | 20 73 74 75 66 66 20 2a |external| stuff *|
|000004d0| 2f 0a 23 64 65 66 69 6e | 65 20 43 50 4d 45 4f 46 |/.#defin|e CPMEOF|
|000004e0| 20 30 78 31 61 09 2f 2a | 20 5e 5a 20 2d 20 45 6e | 0x1a./*| ^Z - En|
|000004f0| 64 4f 66 46 69 6c 65 20 | 75 6e 64 65 72 20 43 50 |dOfFile |under CP|
|00000500| 2f 4d 20 2a 2f 0a 23 65 | 6e 64 69 66 0a 0a 2f 2a |/M */.#e|ndif../*|
|00000510| 20 6d 61 69 6e 20 72 6f | 75 74 69 6e 65 3a 20 20 | main ro|utine: |
|00000520| 67 65 74 20 77 6f 72 64 | 73 20 61 6e 64 20 73 70 |get word|s and sp|
|00000530| 65 63 69 61 6c 20 63 68 | 61 72 61 63 74 65 72 20 |ecial ch|aracter |
|00000540| 61 6e 64 20 70 72 6f 63 | 65 73 73 20 74 68 65 6d |and proc|ess them|
|00000550| 20 2a 2f 0a 6d 61 69 6e | 28 29 0a 7b 0a 20 20 20 | */.main|().{. |
|00000560| 20 46 41 53 54 20 63 68 | 61 72 20 2a 6c 65 74 74 | FAST ch|ar *lett|
|00000570| 65 72 3b 0a 20 20 20 20 | 4c 4f 43 41 4c 20 77 6f |er;. |LOCAL wo|
|00000580| 72 64 5b 31 30 30 5d 3b | 0a 20 20 20 20 46 41 53 |rd[100];|. FAS|
|00000590| 54 20 69 6e 74 20 77 6f | 72 64 6c 6e 74 68 2c 63 |T int wo|rdlnth,c|
|000005a0| 3b 0a 0a 20 20 20 20 6c | 65 74 74 65 72 20 3d 20 |;.. l|etter = |
|000005b0| 28 26 77 6f 72 64 5b 30 | 5d 29 3b 0a 20 20 20 20 |(&word[0|]);. |
|000005c0| 77 6f 72 64 6c 6e 74 68 | 20 3d 20 30 3b 0a 20 20 |wordlnth| = 0;. |
|000005d0| 20 20 77 68 69 6c 65 20 | 28 28 63 3d 67 65 74 63 | while |((c=getc|
|000005e0| 68 61 72 28 29 29 20 21 | 3d 20 45 4f 46 0a 23 69 |har()) !|= EOF.#i|
|000005f0| 66 64 65 66 20 43 50 4d | 0a 09 7c 7c 20 28 69 73 |fdef CPM|..|| (is|
|00000600| 61 74 74 79 28 66 69 6c | 65 6e 6f 28 73 74 64 69 |atty(fil|eno(stdi|
|00000610| 6e 29 29 20 26 26 20 63 | 20 21 3d 20 43 50 4d 45 |n)) && c| != CPME|
|00000620| 4f 46 29 0a 23 65 6e 64 | 69 66 0a 20 20 20 20 29 |OF).#end|if. )|
|00000630| 20 7b 0a 09 69 66 20 28 | 69 73 61 6c 70 68 61 28 | {..if (|isalpha(|
|00000640| 63 29 29 20 7b 0a 09 20 | 20 20 20 2a 6c 65 74 74 |c)) {.. | *lett|
|00000650| 65 72 2b 2b 20 3d 20 63 | 3b 0a 09 20 20 20 20 77 |er++ = c|;.. w|
|00000660| 6f 72 64 6c 6e 74 68 2b | 2b 3b 0a 09 20 20 20 20 |ordlnth+|+;.. |
|00000670| 7d 0a 09 65 6c 73 65 20 | 7b 0a 09 20 20 20 20 69 |}..else |{.. i|
|00000680| 66 20 28 77 6f 72 64 6c | 6e 74 68 20 3e 20 30 29 |f (wordl|nth > 0)|
|00000690| 20 7b 0a 09 09 2a 6c 65 | 74 74 65 72 20 3d 20 27 | {...*le|tter = '|
|000006a0| 5c 30 27 3b 0a 09 09 77 | 74 65 73 74 28 77 6f 72 |\0';...w|test(wor|
|000006b0| 64 29 3b 0a 09 09 77 6f | 72 64 6c 6e 74 68 20 3d |d);...wo|rdlnth =|
|000006c0| 20 30 3b 0a 09 09 6c 65 | 74 74 65 72 20 3d 20 28 | 0;...le|tter = (|
|000006d0| 26 77 6f 72 64 5b 30 5d | 29 3b 0a 09 09 7d 0a 09 |&word[0]|);...}..|
|000006e0| 20 20 20 20 63 74 65 73 | 74 28 63 29 3b 0a 09 20 | ctes|t(c);.. |
|000006f0| 20 20 20 7d 0a 09 7d 0a | 20 20 20 20 69 66 20 28 | }..}.| if (|
|00000700| 77 6f 72 64 6c 6e 74 68 | 3e 30 29 20 7b 0a 09 2a |wordlnth|>0) {..*|
|00000710| 6c 65 74 74 65 72 20 3d | 20 27 5c 30 27 3b 0a 09 |letter =| '\0';..|
|00000720| 77 74 65 73 74 28 77 6f | 72 64 29 3b 0a 09 70 75 |wtest(wo|rd);..pu|
|00000730| 74 63 68 61 72 28 27 5c | 6e 27 29 3b 0a 09 7d 0a |tchar('\|n');..}.|
|00000740| 20 20 20 20 7d 0a 77 74 | 65 73 74 28 77 6f 72 64 | }.wt|est(word|
|00000750| 29 0a 46 41 53 54 20 63 | 68 61 72 20 2a 77 6f 72 |).FAST c|har *wor|
|00000760| 64 3b 0a 7b 0a 20 20 20 | 20 46 41 53 54 20 63 68 |d;.{. | FAST ch|
|00000770| 61 72 20 2a 73 77 61 70 | 77 6f 72 64 3b 0a 0a 20 |ar *swap|word;.. |
|00000780| 20 20 20 73 77 61 70 77 | 6f 72 64 20 3d 20 77 6f | swapw|ord = wo|
|00000790| 72 64 3b 0a 20 20 20 20 | 73 77 69 74 63 68 20 28 |rd;. |switch (|
|000007a0| 2a 77 6f 72 64 29 20 7b | 0a 20 20 20 20 63 61 73 |*word) {|. cas|
|000007b0| 65 20 27 77 27 3a 20 63 | 61 73 65 20 27 57 27 3a |e 'w': c|ase 'W':|
|000007c0| 0a 09 69 66 20 28 63 66 | 5f 73 74 72 63 6d 70 28 |..if (cf|_strcmp(|
|000007d0| 77 6f 72 64 2c 22 77 72 | 69 74 65 6c 6e 22 29 20 |word,"wr|iteln") |
|000007e0| 3d 3d 20 30 20 7c 7c 0a | 09 20 20 20 20 63 66 5f |== 0 ||.|. cf_|
|000007f0| 73 74 72 63 6d 70 28 77 | 6f 72 64 2c 22 77 72 69 |strcmp(w|ord,"wri|
|00000800| 74 65 22 29 20 3d 3d 20 | 30 29 20 73 77 61 70 77 |te") == |0) swapw|
|00000810| 6f 72 64 20 3d 20 22 70 | 72 69 6e 74 66 22 3b 0a |ord = "p|rintf";.|
|00000820| 09 62 72 65 61 6b 3b 0a | 20 20 20 20 63 61 73 65 |.break;.| case|
|00000830| 20 27 72 27 3a 20 63 61 | 73 65 20 27 52 27 3a 0a | 'r': ca|se 'R':.|
|00000840| 09 69 66 20 28 63 66 5f | 73 74 72 63 6d 70 28 77 |.if (cf_|strcmp(w|
|00000850| 6f 72 64 2c 22 72 65 61 | 64 6c 6e 22 29 20 3d 3d |ord,"rea|dln") ==|
|00000860| 20 30 20 7c 7c 0a 09 20 | 20 20 20 63 66 5f 73 74 | 0 ||.. | cf_st|
|00000870| 72 63 6d 70 28 77 6f 72 | 64 2c 22 72 65 61 64 22 |rcmp(wor|d,"read"|
|00000880| 29 20 3d 3d 20 30 29 20 | 73 77 61 70 77 6f 72 64 |) == 0) |swapword|
|00000890| 20 3d 20 22 73 63 61 6e | 66 22 3b 0a 09 62 72 65 | = "scan|f";..bre|
|000008a0| 61 6b 3b 0a 20 20 20 20 | 63 61 73 65 20 27 74 27 |ak;. |case 't'|
|000008b0| 3a 20 63 61 73 65 20 27 | 54 27 3a 0a 09 69 66 20 |: case '|T':..if |
|000008c0| 28 63 66 5f 73 74 72 63 | 6d 70 28 77 6f 72 64 2c |(cf_strc|mp(word,|
|000008d0| 22 74 68 65 6e 22 29 20 | 3d 3d 20 30 29 20 73 77 |"then") |== 0) sw|
|000008e0| 61 70 77 6f 72 64 20 3d | 20 22 5c 30 22 3b 0a 09 |apword =| "\0";..|
|000008f0| 62 72 65 61 6b 3b 0a 20 | 20 20 20 63 61 73 65 20 |break;. | case |
|00000900| 27 61 27 3a 20 63 61 73 | 65 20 27 41 27 3a 0a 09 |'a': cas|e 'A':..|
|00000910| 69 66 20 28 63 66 5f 73 | 74 72 63 6d 70 28 77 6f |if (cf_s|trcmp(wo|
|00000920| 72 64 2c 22 61 6e 64 22 | 29 20 3d 3d 20 30 29 20 |rd,"and"|) == 0) |
|00000930| 73 77 61 70 77 6f 72 64 | 20 3d 20 22 26 26 22 3b |swapword| = "&&";|
|00000940| 0a 09 62 72 65 61 6b 3b | 0a 20 20 20 20 63 61 73 |..break;|. cas|
|00000950| 65 20 27 6f 27 3a 20 63 | 61 73 65 20 27 4f 27 3a |e 'o': c|ase 'O':|
|00000960| 0a 09 69 66 20 28 63 66 | 5f 73 74 72 63 6d 70 28 |..if (cf|_strcmp(|
|00000970| 77 6f 72 64 2c 22 6f 72 | 22 29 20 3d 3d 20 30 29 |word,"or|") == 0)|
|00000980| 20 73 77 61 70 77 6f 72 | 64 20 3d 20 22 7c 7c 22 | swapwor|d = "||"|
|00000990| 3b 0a 09 62 72 65 61 6b | 3b 0a 20 20 20 20 63 61 |;..break|;. ca|
|000009a0| 73 65 20 27 62 27 3a 20 | 63 61 73 65 20 27 42 27 |se 'b': |case 'B'|
|000009b0| 3a 0a 09 69 66 20 28 63 | 66 5f 73 74 72 63 6d 70 |:..if (c|f_strcmp|
|000009c0| 28 77 6f 72 64 2c 22 62 | 65 67 69 6e 22 29 20 3d |(word,"b|egin") =|
|000009d0| 3d 20 30 29 20 73 77 61 | 70 77 6f 72 64 20 3d 20 |= 0) swa|pword = |
|000009e0| 22 7b 22 3b 0a 09 62 72 | 65 61 6b 3b 0a 20 20 20 |"{";..br|eak;. |
|000009f0| 20 63 61 73 65 20 27 65 | 27 3a 20 63 61 73 65 20 | case 'e|': case |
|00000a00| 27 45 27 3a 0a 09 69 66 | 20 28 63 66 5f 73 74 72 |'E':..if| (cf_str|
|00000a10| 63 6d 70 28 77 6f 72 64 | 2c 22 65 6e 64 22 29 20 |cmp(word|,"end") |
|00000a20| 3d 3d 20 30 29 20 73 77 | 61 70 77 6f 72 64 20 3d |== 0) sw|apword =|
|00000a30| 20 22 3b 7d 22 3b 0a 09 | 62 72 65 61 6b 3b 0a 20 | ";}";..|break;. |
|00000a40| 20 20 20 64 65 66 61 75 | 6c 74 3a 20 62 72 65 61 | defau|lt: brea|
|00000a50| 6b 3b 0a 09 7d 0a 20 20 | 20 20 73 77 61 70 28 73 |k;..}. | swap(s|
|00000a60| 77 61 70 77 6f 72 64 29 | 3b 0a 20 20 20 20 7d 0a |wapword)|;. }.|
|00000a70| 63 74 65 73 74 28 63 29 | 0a 46 41 53 54 20 63 3b |ctest(c)|.FAST c;|
|00000a80| 0a 7b 0a 20 20 20 20 73 | 77 69 74 63 68 20 28 63 |.{. s|witch (c|
|00000a90| 29 20 7b 0a 20 20 20 20 | 63 61 73 65 20 27 5c 27 |) {. |case '\'|
|00000aa0| 27 20 3a 20 70 75 74 63 | 68 61 72 28 27 22 27 29 |' : putc|har('"')|
|00000ab0| 3b 20 62 72 65 61 6b 3b | 0a 20 20 20 20 63 61 73 |; break;|. cas|
|00000ac0| 65 20 27 7b 27 20 3a 20 | 73 77 61 70 28 22 2f 2a |e '{' : |swap("/*|
|00000ad0| 22 29 3b 20 62 72 65 61 | 6b 3b 0a 20 20 20 20 63 |"); brea|k;. c|
|00000ae0| 61 73 65 20 27 7d 27 20 | 3a 20 73 77 61 70 28 22 |ase '}' |: swap("|
|00000af0| 2a 2f 22 29 3b 20 62 72 | 65 61 6b 3b 0a 20 20 20 |*/"); br|eak;. |
|00000b00| 20 63 61 73 65 20 27 28 | 27 20 3a 20 73 77 61 70 | case '(|' : swap|
|00000b10| 69 66 28 27 28 27 2c 27 | 2a 27 2c 22 2f 2a 22 29 |if('(','|*',"/*")|
|00000b20| 3b 20 62 72 65 61 6b 3b | 0a 20 20 20 20 63 61 73 |; break;|. cas|
|00000b30| 65 20 27 2a 27 20 3a 20 | 73 77 61 70 69 66 28 27 |e '*' : |swapif('|
|00000b40| 2a 27 2c 27 29 27 2c 22 | 2a 2f 22 29 3b 20 62 72 |*',')',"|*/"); br|
|00000b50| 65 61 6b 3b 0a 20 20 20 | 20 63 61 73 65 20 27 3a |eak;. | case ':|
|00000b60| 27 20 3a 20 73 77 61 70 | 69 66 28 27 3a 27 2c 27 |' : swap|if(':','|
|00000b70| 3d 27 2c 22 3d 22 29 3b | 20 62 72 65 61 6b 3b 0a |=',"=");| break;.|
|00000b80| 20 20 20 20 63 61 73 65 | 20 27 3c 27 20 3a 20 73 | case| '<' : s|
|00000b90| 77 61 70 69 66 28 27 3c | 27 2c 27 3e 27 2c 22 21 |wapif('<|','>',"!|
|00000ba0| 3d 22 29 3b 20 62 72 65 | 61 6b 3b 0a 20 20 20 20 |="); bre|ak;. |
|00000bb0| 63 61 73 65 20 27 3e 27 | 20 3a 20 70 75 74 63 68 |case '>'| : putch|
|00000bc0| 61 72 28 63 29 3b 20 70 | 75 74 63 68 61 72 28 67 |ar(c); p|utchar(g|
|00000bd0| 65 74 63 68 61 72 28 29 | 29 3b 20 62 72 65 61 6b |etchar()|); break|
|00000be0| 3b 0a 20 20 20 20 63 61 | 73 65 20 27 3d 27 20 3a |;. ca|se '=' :|
|00000bf0| 20 73 77 61 70 28 22 3d | 3d 22 29 3b 20 62 72 65 | swap("=|="); bre|
|00000c00| 61 6b 3b 0a 20 20 20 20 | 64 65 66 61 75 6c 74 3a |ak;. |default:|
|00000c10| 20 70 75 74 63 68 61 72 | 28 63 29 3b 0a 09 7d 0a | putchar|(c);..}.|
|00000c20| 20 20 20 20 7d 0a 73 77 | 61 70 28 73 29 0a 46 41 | }.sw|ap(s).FA|
|00000c30| 53 54 20 63 68 61 72 20 | 2a 73 3b 0a 7b 0a 20 20 |ST char |*s;.{. |
|00000c40| 20 20 77 68 69 6c 65 28 | 2a 73 20 21 3d 20 27 5c | while(|*s != '\|
|00000c50| 30 27 29 20 70 75 74 63 | 68 61 72 28 2a 73 2b 2b |0') putc|har(*s++|
|00000c60| 29 3b 0a 20 20 20 20 7d | 0a 73 77 61 70 69 66 28 |);. }|.swapif(|
|00000c70| 66 69 72 73 74 2c 73 65 | 63 6f 6e 64 2c 72 65 70 |first,se|cond,rep|
|00000c80| 6c 61 63 65 6d 65 6e 74 | 29 0a 46 41 53 54 20 63 |lacement|).FAST c|
|00000c90| 68 61 72 20 66 69 72 73 | 74 2c 73 65 63 6f 6e 64 |har firs|t,second|
|00000ca0| 2c 2a 72 65 70 6c 61 63 | 65 6d 65 6e 74 3b 0a 7b |,*replac|ement;.{|
|00000cb0| 0a 20 20 20 20 46 41 53 | 54 20 63 68 61 72 20 63 |. FAS|T char c|
|00000cc0| 3b 0a 0a 20 20 20 20 69 | 66 20 28 28 63 3d 67 65 |;.. i|f ((c=ge|
|00000cd0| 74 63 68 61 72 28 29 29 | 20 3d 3d 20 73 65 63 6f |tchar())| == seco|
|00000ce0| 6e 64 29 20 73 77 61 70 | 28 72 65 70 6c 61 63 65 |nd) swap|(replace|
|00000cf0| 6d 65 6e 74 29 3b 0a 20 | 20 20 20 65 6c 73 65 20 |ment);. | else |
|00000d00| 7b 0a 09 70 75 74 63 68 | 61 72 28 66 69 72 73 74 |{..putch|ar(first|
|00000d10| 29 3b 0a 09 75 6e 67 65 | 74 63 28 63 2c 73 74 64 |);..unge|tc(c,std|
|00000d20| 69 6e 29 3b 0a 09 7d 0a | 20 20 20 20 7d 0a 63 66 |in);..}.| }.cf|
|00000d30| 5f 73 74 72 63 6d 70 28 | 73 31 2c 73 32 29 0a 46 |_strcmp(|s1,s2).F|
|00000d40| 41 53 54 20 63 68 61 72 | 20 2a 73 31 2c 2a 73 32 |AST char| *s1,*s2|
|00000d50| 3b 0a 7b 0a 20 20 20 20 | 46 41 53 54 20 69 6e 74 |;.{. |FAST int|
|00000d60| 20 69 3b 0a 0a 20 20 20 | 20 77 68 69 6c 65 28 2a | i;.. | while(*|
|00000d70| 73 31 20 21 3d 20 27 5c | 30 27 20 26 26 20 2a 73 |s1 != '\|0' && *s|
|00000d80| 32 20 21 3d 20 27 5c 30 | 27 20 26 26 20 74 6f 75 |2 != '\0|' && tou|
|00000d90| 70 70 65 72 28 2a 73 31 | 29 20 3d 3d 20 74 6f 75 |pper(*s1|) == tou|
|00000da0| 70 70 65 72 28 2a 73 32 | 29 29 20 7b 0a 09 73 31 |pper(*s2|)) {..s1|
|00000db0| 2b 2b 3b 0a 09 73 32 2b | 2b 3b 0a 09 7d 0a 20 20 |++;..s2+|+;..}. |
|00000dc0| 20 20 69 20 3d 20 74 6f | 75 70 70 65 72 28 2a 73 | i = to|upper(*s|
|00000dd0| 31 29 20 2d 20 74 6f 75 | 70 70 65 72 28 2a 73 32 |1) - tou|pper(*s2|
|00000de0| 29 3b 0a 20 20 20 20 69 | 66 20 28 69 3c 30 29 20 |);. i|f (i<0) |
|00000df0| 72 65 74 75 72 6e 28 2d | 31 29 3b 0a 20 20 20 20 |return(-|1);. |
|00000e00| 65 6c 73 65 20 69 66 20 | 28 69 3e 30 29 20 72 65 |else if |(i>0) re|
|00000e10| 74 75 72 6e 28 31 29 3b | 0a 20 20 20 20 65 6c 73 |turn(1);|. els|
|00000e20| 65 20 72 65 74 75 72 6e | 28 30 29 3b 0a 20 20 20 |e return|(0);. |
|00000e30| 20 7d 0a 0a 0a | | }... | |
+--------+-------------------------+-------------------------+--------+--------+
